home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 May / PCWorld_2003-05_cd.bin / Software / Komercni / dispatcher / setup.exe / {app} / Tisk / SVozidel.hpr / SVozidel.txt
Text File  |  2002-09-19  |  19KB  |  732 lines
  1. object SezVozRpt_1: TSezVozRpt
  2.   Left = 216
  3.   Top = 241
  4.   Width = 853
  5.   Height = 483
  6.   Caption = 'Seznam vozidel'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   Scaled = False
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object QuickRep1: TQuickRep
  18.     Left = 6
  19.     Top = 10
  20.     Width = 794
  21.     Height = 1123
  22.     Frame.Color = clBlack
  23.     Frame.DrawTop = False
  24.     Frame.DrawBottom = False
  25.     Frame.DrawLeft = False
  26.     Frame.DrawRight = False
  27.     DataSet = ADOTable1
  28.     Font.Charset = DEFAULT_CHARSET
  29.     Font.Color = clWindowText
  30.     Font.Height = -11
  31.     Font.Name = 'Arial'
  32.     Font.Style = []
  33.     Functions.Strings = (
  34.       'PAGENUMBER'
  35.       'COLUMNNUMBER'
  36.       'REPORTTITLE'
  37.       'QRSTRINGSBAND1')
  38.     Functions.DATA = (
  39.       '0'
  40.       '0'
  41.       #39#39
  42.       #39#39)
  43.     Options = [FirstPageHeader, LastPageFooter]
  44.     Page.Columns = 1
  45.     Page.Orientation = poPortrait
  46.     Page.PaperSize = A4
  47.     Page.Values = (
  48.       100.000000000000000000
  49.       2970.000000000000000000
  50.       100.000000000000000000
  51.       2100.000000000000000000
  52.       100.000000000000000000
  53.       100.000000000000000000
  54.       0.000000000000000000)
  55.     PrinterSettings.Copies = 1
  56.     PrinterSettings.Duplex = False
  57.     PrinterSettings.FirstPage = 0
  58.     PrinterSettings.LastPage = 0
  59.     PrinterSettings.OutputBin = Auto
  60.     PrintIfEmpty = True
  61.     ReportTitle = 'Seznam vozidel'
  62.     SnapToGrid = True
  63.     Units = MM
  64.     Zoom = 100
  65.     object PageFooterBand1: TQRBand
  66.       Left = 38
  67.       Top = 169
  68.       Width = 718
  69.       Height = 39
  70.       Frame.Color = clBlack
  71.       Frame.DrawTop = False
  72.       Frame.DrawBottom = False
  73.       Frame.DrawLeft = False
  74.       Frame.DrawRight = False
  75.       AlignToBottom = False
  76.       Color = clWhite
  77.       ForceNewColumn = False
  78.       ForceNewPage = False
  79.       Size.Values = (
  80.         103.187500000000000000
  81.         1899.708333333333000000)
  82.       BandType = rbPageFooter
  83.       object QRExpr1: TQRExpr
  84.         Left = 605
  85.         Top = 16
  86.         Width = 113
  87.         Height = 15
  88.         Frame.Color = clBlack
  89.         Frame.DrawTop = False
  90.         Frame.DrawBottom = False
  91.         Frame.DrawLeft = False
  92.         Frame.DrawRight = False
  93.         Size.Values = (
  94.           39.687500000000000000
  95.           1600.729166666667000000
  96.           42.333333333333340000
  97.           298.979166666666700000)
  98.         Alignment = taRightJustify
  99.         AlignToBand = True
  100.         AutoSize = True
  101.         AutoStretch = False
  102.         Color = clWhite
  103.         ResetAfterPrint = False
  104.         Transparent = False
  105.         WordWrap = True
  106.         Expression = #39'Strana '#39' + PageNumber'
  107.         FontSize = 8
  108.       end
  109.       object QRShape3: TQRShape
  110.         Left = 0
  111.         Top = 8
  112.         Width = 721
  113.         Height = 1
  114.         Frame.Color = clBlack
  115.         Frame.DrawTop = False
  116.         Frame.DrawBottom = False
  117.         Frame.DrawLeft = False
  118.         Frame.DrawRight = False
  119.         Size.Values = (
  120.           2.645833333333330000
  121.           0.000000000000000000
  122.           21.166666666666700000
  123.           1907.645833333330000000)
  124.         Shape = qrsHorLine
  125.       end
  126.       object QRLabel6: TQRLabel
  127.         Left = 0
  128.         Top = 16
  129.         Width = 260
  130.         Height = 17
  131.         Frame.Color = clBlack
  132.         Frame.DrawTop = False
  133.         Frame.DrawBottom = False
  134.         Frame.DrawLeft = False
  135.         Frame.DrawRight = False
  136.         Size.Values = (
  137.           44.979166666666700000
  138.           0.000000000000000000
  139.           42.333333333333300000
  140.           687.916666666667000000)
  141.         Alignment = taLeftJustify
  142.         AlignToBand = False
  143.         AutoSize = True
  144.         AutoStretch = False
  145.         Caption = 'Vyti∩┐╜t∩┐╜no programem Dispatcher 3, HI Software s.r.o.'
  146.         Color = clWhite
  147.         Transparent = False
  148.         WordWrap = True
  149.         FontSize = 8
  150.       end
  151.     end
  152.     object ColumnHeaderBand1: TQRBand
  153.       Left = 38
  154.       Top = 38
  155.       Width = 718
  156.       Height = 107
  157.       Frame.Color = clBlack
  158.       Frame.DrawTop = False
  159.       Frame.DrawBottom = False
  160.       Frame.DrawLeft = False
  161.       Frame.DrawRight = False
  162.       AlignToBottom = False
  163.       Color = clWhite
  164.       ForceNewColumn = False
  165.       ForceNewPage = False
  166.       Size.Values = (
  167.         283.104166666666700000
  168.         1899.708333333333000000)
  169.       BandType = rbColumnHeader
  170.       object QRLabel2: TQRLabel
  171.         Left = 608
  172.         Top = 0
  173.         Width = 105
  174.         Height = 17
  175.         Frame.Color = clBlack
  176.         Frame.DrawTop = False
  177.         Frame.DrawBottom = False
  178.         Frame.DrawLeft = False
  179.         Frame.DrawRight = False
  180.         Size.Values = (
  181.           44.979166666666700000
  182.           1608.666666666670000000
  183.           0.000000000000000000
  184.           277.812500000000000000)
  185.         Alignment = taRightJustify
  186.         AlignToBand = False
  187.         AutoSize = True
  188.         AutoStretch = False
  189.         BiDiMode = bdLeftToRight
  190.         ParentBiDiMode = False
  191.         Caption = '[:NazevSestavy:]'
  192.         Color = clWhite
  193.         Font.Charset = DEFAULT_CHARSET
  194.         Font.Color = clWindowText
  195.         Font.Height = -13
  196.         Font.Name = 'Arial'
  197.         Font.Style = [fsBold]
  198.         ParentFont = False
  199.         Transparent = False
  200.         WordWrap = True
  201.         FontSize = 10
  202.       end
  203.       object QRShape2: TQRShape
  204.         Left = 0
  205.         Top = 24
  206.         Width = 713
  207.         Height = 3
  208.         Frame.Color = clNavy
  209.         Frame.DrawTop = False
  210.         Frame.DrawBottom = False
  211.         Frame.DrawLeft = False
  212.         Frame.DrawRight = False
  213.         Frame.Width = 5
  214.         Size.Values = (
  215.           7.937500000000000000
  216.           0.000000000000000000
  217.           63.500000000000000000
  218.           1886.479166666670000000)
  219.         Brush.Color = clBlue
  220.         Pen.Color = clNavy
  221.         Shape = qrsRectangle
  222.       end
  223.       object QRLabel5: TQRLabel
  224.         Left = 0
  225.         Top = 0
  226.         Width = 54
  227.         Height = 17
  228.         Frame.Color = clBlack
  229.         Frame.DrawTop = False
  230.         Frame.DrawBottom = False
  231.         Frame.DrawLeft = False
  232.         Frame.DrawRight = False
  233.         Size.Values = (
  234.           44.979166666666700000
  235.           0.000000000000000000
  236.           0.000000000000000000
  237.           142.875000000000000000)
  238.         Alignment = taLeftJustify
  239.         AlignToBand = False
  240.         AutoSize = True
  241.         AutoStretch = False
  242.         Caption = '[:Firma:]'
  243.         Color = clWhite
  244.         Font.Charset = DEFAULT_CHARSET
  245.         Font.Color = clWindowText
  246.         Font.Height = -13
  247.         Font.Name = 'Arial'
  248.         Font.Style = [fsBold]
  249.         ParentFont = False
  250.         Transparent = False
  251.         WordWrap = True
  252.         FontSize = 10
  253.       end
  254.       object QRShape1: TQRShape
  255.         Left = 0
  256.         Top = 96
  257.         Width = 713
  258.         Height = 2
  259.         Frame.Color = clBlack
  260.         Frame.DrawTop = False
  261.         Frame.DrawBottom = False
  262.         Frame.DrawLeft = False
  263.         Frame.DrawRight = False
  264.         Size.Values = (
  265.           5.291666666666670000
  266.           0.000000000000000000
  267.           254.000000000000000000
  268.           1886.479166666670000000)
  269.         Brush.Color = clBlack
  270.         Shape = qrsRectangle
  271.       end
  272.       object Trasa: TQRLabel
  273.         Left = 8
  274.         Top = 72
  275.         Width = 40
  276.         Height = 17
  277.         Frame.Color = clBlack
  278.         Frame.DrawTop = False
  279.         Frame.DrawBottom = False
  280.         Frame.DrawLeft = False
  281.         Frame.DrawRight = False
  282.         Size.Values = (
  283.           44.979166666666700000
  284.           21.166666666666700000
  285.           190.500000000000000000
  286.           105.833333333333000000)
  287.         Alignment = taLeftJustify
  288.         AlignToBand = False
  289.         AutoSize = True
  290.         AutoStretch = False
  291.         Caption = 'N∩┐╜zev'
  292.         Color = clWhite
  293.         Font.Charset = DEFAULT_CHARSET
  294.         Font.Color = clWindowText
  295.         Font.Height = -13
  296.         Font.Name = 'Arial'
  297.         Font.Style = [fsBold]
  298.         ParentFont = False
  299.         Transparent = False
  300.         WordWrap = True
  301.         FontSize = 10
  302.       end
  303.       object QRLabel1: TQRLabel
  304.         Left = 657
  305.         Top = 72
  306.         Width = 50
  307.         Height = 17
  308.         Frame.Color = clBlack
  309.         Frame.DrawTop = False
  310.         Frame.DrawBottom = False
  311.         Frame.DrawLeft = False
  312.         Frame.DrawRight = False
  313.         Size.Values = (
  314.           44.979166666666700000
  315.           1738.312500000000000000
  316.           190.500000000000000000
  317.           132.291666666667000000)
  318.         Alignment = taCenter
  319.         AlignToBand = False
  320.         AutoSize = True
  321.         AutoStretch = False
  322.         Caption = 'Nosnost'
  323.         Color = clWhite
  324.         Font.Charset = DEFAULT_CHARSET
  325.         Font.Color = clWindowText
  326.         Font.Height = -13
  327.         Font.Name = 'Arial'
  328.         Font.Style = [fsBold]
  329.         ParentFont = False
  330.         Transparent = False
  331.         WordWrap = True
  332.         FontSize = 10
  333.       end
  334.       object QRLabel3: TQRLabel
  335.         Left = 224
  336.         Top = 72
  337.         Width = 26
  338.         Height = 17
  339.         Frame.Color = clBlack
  340.         Frame.DrawTop = False
  341.         Frame.DrawBottom = False
  342.         Frame.DrawLeft = False
  343.         Frame.DrawRight = False
  344.         Size.Values = (
  345.           44.979166666666700000
  346.           592.666666666667000000
  347.           190.500000000000000000
  348.           68.791666666666700000)
  349.         Alignment = taLeftJustify
  350.         AlignToBand = False
  351.         AutoSize = True
  352.         AutoStretch = False
  353.         Caption = 'SPZ'
  354.         Color = clWhite
  355.         Font.Charset = DEFAULT_CHARSET
  356.         Font.Color = clWindowText
  357.         Font.Height = -13
  358.         Font.Name = 'Arial'
  359.         Font.Style = [fsBold]
  360.         ParentFont = False
  361.         Transparent = False
  362.         WordWrap = True
  363.         FontSize = 10
  364.       end
  365.     end
  366.     object QRSubDetail1: TQRSubDetail
  367.       Left = 38
  368.       Top = 145
  369.       Width = 718
  370.       Height = 24
  371.       Frame.Color = clBlack
  372.       Frame.DrawTop = False
  373.       Frame.DrawBottom = False
  374.       Frame.DrawLeft = False
  375.       Frame.DrawRight = False
  376.       AlignToBottom = False
  377.       Color = clWhite
  378.       ForceNewColumn = False
  379.       ForceNewPage = False
  380.       LinkBand = ColumnHeaderBand1
  381.       Size.Values = (
  382.         63.500000000000000000
  383.         1899.708333333333000000)
  384.       Master = QuickRep1
  385.       DataSet = ADOTable1
  386.       PrintBefore = False
  387.       PrintIfEmpty = False
  388.       object QRDBText1: TQRDBText
  389.         Left = 8
  390.         Top = 0
  391.         Width = 209
  392.         Height = 23
  393.         Frame.Color = clBlack
  394.         Frame.DrawTop = False
  395.         Frame.DrawBottom = False
  396.         Frame.DrawLeft = False
  397.         Frame.DrawRight = False
  398.         Size.Values = (
  399.           60.854166666666700000
  400.           21.166666666666700000
  401.           0.000000000000000000
  402.           552.979166666667000000)
  403.         Alignment = taLeftJustify
  404.         AlignToBand = False
  405.         AutoSize = False
  406.         AutoStretch = False
  407.         Color = clWhite
  408.         DataSet = ADOTable1
  409.         DataField = 'name'
  410.         Font.Charset = DEFAULT_CHARSET
  411.         Font.Color = clWindowText
  412.         Font.Height = -13
  413.         Font.Name = 'Arial'
  414.         Font.Style = []
  415.         ParentFont = False
  416.         Transparent = False
  417.         WordWrap = True
  418.         FontSize = 10
  419.       end
  420.       object QRDBText2: TQRDBText
  421.         Left = 224
  422.         Top = 1
  423.         Width = 81
  424.         Height = 20
  425.         Frame.Color = clBlack
  426.         Frame.DrawTop = False
  427.         Frame.DrawBottom = False
  428.         Frame.DrawLeft = False
  429.         Frame.DrawRight = False
  430.         Size.Values = (
  431.           52.916666666666700000
  432.           592.666666666667000000
  433.           2.645833333333330000
  434.           214.312500000000000000)
  435.         Alignment = taLeftJustify
  436.         AlignToBand = False
  437.         AutoSize = False
  438.         AutoStretch = False
  439.         Color = clWhite
  440.         DataSet = ADOTable1
  441.         DataField = 'spz'
  442.         Font.Charset = DEFAULT_CHARSET
  443.         Font.Color = clWindowText
  444.         Font.Height = -13
  445.         Font.Name = 'Arial'
  446.         Font.Style = []
  447.         ParentFont = False
  448.         Transparent = False
  449.         WordWrap = True
  450.         FontSize = 10
  451.       end
  452.       object QRLabel4: TQRLabel
  453.         Left = 688
  454.         Top = 3
  455.         Width = 15
  456.         Height = 17
  457.         Frame.Color = clBlack
  458.         Frame.DrawTop = False
  459.         Frame.DrawBottom = False
  460.         Frame.DrawLeft = False
  461.         Frame.DrawRight = False
  462.         Size.Values = (
  463.           44.979166666666700000
  464.           1820.333333333330000000
  465.           7.937500000000000000
  466.           39.687500000000000000)
  467.         Alignment = taLeftJustify
  468.         AlignToBand = False
  469.         AutoSize = True
  470.         AutoStretch = False
  471.         Caption = 'kg'
  472.         Color = clWhite
  473.         Font.Charset = DEFAULT_CHARSET
  474.         Font.Color = clWindowText
  475.         Font.Height = -13
  476.         Font.Name = 'Arial'
  477.         Font.Style = []
  478.         ParentFont = False
  479.         Transparent = False
  480.         WordWrap = True
  481.         FontSize = 10
  482.       end
  483.       object QRExpr2: TQRExpr
  484.         Left = 525
  485.         Top = 3
  486.         Width = 159
  487.         Height = 17
  488.         Frame.Color = clBlack
  489.         Frame.DrawTop = False
  490.         Frame.DrawBottom = False
  491.         Frame.DrawLeft = False
  492.         Frame.DrawRight = False
  493.         Size.Values = (
  494.           44.979166666666700000
  495.           1389.062500000000000000
  496.           7.937500000000000000
  497.           420.687500000000000000)
  498.         Alignment = taRightJustify
  499.         AlignToBand = False
  500.         AutoSize = True
  501.         AutoStretch = False
  502.         Font.Charset = DEFAULT_CHARSET
  503.         Font.Color = clWindowText
  504.         Font.Height = -13
  505.         Font.Name = 'Arial'
  506.         Font.Style = []
  507.         Color = clWhite
  508.         ParentFont = False
  509.         ResetAfterPrint = False
  510.         Transparent = False
  511.         WordWrap = True
  512.         Expression = 'ADOTable1.nosnost / 1000'
  513.         FontSize = 10
  514.       end
  515.     end
  516.     object QRBand1: TQRBand
  517.       Left = 38
  518.       Top = 208
  519.       Width = 718
  520.       Height = 25
  521.       Frame.Color = clBlack
  522.       Frame.DrawTop = False
  523.       Frame.DrawBottom = False
  524.       Frame.DrawLeft = False
  525.       Frame.DrawRight = False
  526.       AlignToBottom = False
  527.       Color = clWhite
  528.       ForceNewColumn = False
  529.       ForceNewPage = False
  530.       Size.Values = (
  531.         66.145833333333340000
  532.         1899.708333333333000000)
  533.       BandType = rbGroupHeader
  534.     end
  535.     object T1: TQRLabel
  536.       Left = 80
  537.       Top = 16
  538.       Width = 8
  539.       Height = 17
  540.       Frame.Color = clBlack
  541.       Frame.DrawTop = False
  542.       Frame.DrawBottom = False
  543.       Frame.DrawLeft = False
  544.       Frame.DrawRight = False
  545.       Size.Values = (
  546.         44.979166666666700000
  547.         211.666666666667000000
  548.         42.333333333333300000
  549.         21.166666666666700000)
  550.       Alignment = taLeftJustify
  551.       AlignToBand = False
  552.       AutoSize = True
  553.       AutoStretch = False
  554.       Caption = '1'
  555.       Color = clWhite
  556.       Font.Charset = DEFAULT_CHARSET
  557.       Font.Color = clWindowText
  558.       Font.Height = -13
  559.       Font.Name = 'Arial'
  560.       Font.Style = []
  561.       ParentFont = False
  562.       Transparent = False
  563.       WordWrap = True
  564.       FontSize = 10
  565.     end
  566.     object T2: TQRLabel
  567.       Left = 120
  568.       Top = 16
  569.       Width = 8
  570.       Height = 17
  571.       Frame.Color = clBlack
  572.       Frame.DrawTop = False
  573.       Frame.DrawBottom = False
  574.       Frame.DrawLeft = False
  575.       Frame.DrawRight = False
  576.       Size.Values = (
  577.         44.979166666666700000
  578.         317.500000000000000000
  579.         42.333333333333300000
  580.         21.166666666666700000)
  581.       Alignment = taLeftJustify
  582.       AlignToBand = False
  583.       AutoSize = True
  584.       AutoStretch = False
  585.       Caption = '0'
  586.       Color = clWhite
  587.       Font.Charset = DEFAULT_CHARSET
  588.       Font.Color = clWindowText
  589.       Font.Height = -13
  590.       Font.Name = 'Arial'
  591.       Font.Style = []
  592.       ParentFont = False
  593.       Transparent = False
  594.       WordWrap = True
  595.       FontSize = 10
  596.     end
  597.     object T3: TQRLabel
  598.       Left = 160
  599.       Top = 16
  600.       Width = 8
  601.       Height = 17
  602.       Frame.Color = clBlack
  603.       Frame.DrawTop = False
  604.       Frame.DrawBottom = False
  605.       Frame.DrawLeft = False
  606.       Frame.DrawRight = False
  607.       Size.Values = (
  608.         44.979166666666700000
  609.         423.333333333333000000
  610.         42.333333333333300000
  611.         21.166666666666700000)
  612.       Alignment = taLeftJustify
  613.       AlignToBand = False
  614.       AutoSize = True
  615.       AutoStretch = False
  616.       Caption = '1'
  617.       Color = clWhite
  618.       Font.Charset = DEFAULT_CHARSET
  619.       Font.Color = clWindowText
  620.       Font.Height = -13
  621.       Font.Name = 'Arial'
  622.       Font.Style = []
  623.       ParentFont = False
  624.       Transparent = False
  625.       WordWrap = True
  626.       FontSize = 10
  627.     end
  628.     object NTS: TQRLabel
  629.       Left = 192
  630.       Top = 16
  631.       Width = 92
  632.       Height = 17
  633.       Frame.Color = clBlack
  634.       Frame.DrawTop = False
  635.       Frame.DrawBottom = False
  636.       Frame.DrawLeft = False
  637.       Frame.DrawRight = False
  638.       Size.Values = (
  639.         44.979166666666700000
  640.         508.000000000000000000
  641.         42.333333333333300000
  642.         243.416666666667000000)
  643.       Alignment = taLeftJustify
  644.       AlignToBand = False
  645.       AutoSize = True
  646.       AutoStretch = False
  647.       Caption = 'Seznam vozidel'
  648.       Color = clWhite
  649.       Font.Charset = DEFAULT_CHARSET
  650.       Font.Color = clWindowText
  651.       Font.Height = -13
  652.       Font.Name = 'Arial'
  653.       Font.Style = []
  654.       ParentFont = False
  655.       Transparent = False
  656.       WordWrap = True
  657.       FontSize = 10
  658.     end
  659.     object idVerze: TQRLabel
  660.       Left = 288
  661.       Top = 16
  662.       Width = 8
  663.       Height = 17
  664.       Frame.Color = clBlack
  665.       Frame.DrawTop = False
  666.       Frame.DrawBottom = False
  667.       Frame.DrawLeft = False
  668.       Frame.DrawRight = False
  669.       Size.Values = (
  670.         44.979166666666700000
  671.         762.000000000000000000
  672.         42.333333333333300000
  673.         21.166666666666700000)
  674.       Alignment = taLeftJustify
  675.       AlignToBand = False
  676.       AutoSize = True
  677.       AutoStretch = False
  678.       Caption = '0'
  679.       Color = clWhite
  680.       Font.Charset = DEFAULT_CHARSET
  681.       Font.Color = clWindowText
  682.       Font.Height = -13
  683.       Font.Name = 'Arial'
  684.       Font.Style = []
  685.       ParentFont = False
  686.       Transparent = False
  687.       WordWrap = True
  688.       FontSize = 10
  689.     end
  690.     object Agenda: TQRLabel
  691.       Left = 312
  692.       Top = 16
  693.       Width = 15
  694.       Height = 17
  695.       Frame.Color = clBlack
  696.       Frame.DrawTop = False
  697.       Frame.DrawBottom = False
  698.       Frame.DrawLeft = False
  699.       Frame.DrawRight = False
  700.       Size.Values = (
  701.         44.979166666666700000
  702.         825.500000000000000000
  703.         42.333333333333300000
  704.         39.687500000000000000)
  705.       Alignment = taLeftJustify
  706.       AlignToBand = False
  707.       AutoSize = True
  708.       AutoStretch = False
  709.       Caption = '33'
  710.       Color = clWhite
  711.       Font.Charset = DEFAULT_CHARSET
  712.       Font.Color = clWindowText
  713.       Font.Height = -13
  714.       Font.Name = 'Arial'
  715.       Font.Style = []
  716.       ParentFont = False
  717.       Transparent = False
  718.       WordWrap = True
  719.       FontSize = 10
  720.     end
  721.   end
  722.   object ADOTable1: TADOTable
  723.     ConnectionString = 
  724.       'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;Persist Se' +
  725.       'curity Info=False'
  726.     CursorType = ctStatic
  727.     TableName = 'cars'
  728.     Left = 22
  729.     Top = 18
  730.   end
  731. end
  732.